home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / sb_event.zip / BUL_MOD.PRG < prev    next >
Text File  |  1990-07-29  |  3KB  |  137 lines
  1. Silver Bullet Sysop;
  2.  
  3. This is the portion of the sbullet.prg that will envoke a nice
  4. little addon for the EVENT TIMER.
  5.  
  6. Only one line of code need be added "menu_time()"
  7.  
  8. You will find it at the very bottom of this source file.
  9.  
  10. If you are using ALINK a suggestion is to rename the SBULLET.PRG
  11. to another name like SBULLETT.PRG and create a new sbullet.prg file
  12. with the one line code of:
  13.  
  14. DO SBULLETT
  15.  
  16. And add this new name to your 1st .clp file
  17.  
  18. This will allow the greatest amount of code to be put in an overlay 
  19. to do all the work..
  20.  
  21. Checkout databased advisor August issue Rick Spence/HardCore Clipper etc...
  22.  
  23. Anyway here is the code segment, I included a bunch so there would
  24. be no mistaking where to add the 1 line of code.
  25.  
  26. Bob Morgan 
  27. The Orlando Bullet
  28. (407) 277-2007
  29. ***************************************************************************
  30.  
  31. PROCEDURE board
  32. SAVE SCREEN TO host
  33. rtime       = " "
  34. break_req   = false
  35. newkey      =  0
  36. tempkey     =  0
  37. expert      = false
  38. errors      = false
  39. pageblock   = !pageblock
  40.  
  41.  
  42. DO WHILE newkey <> 27 .AND. !quit_pgm
  43.    AL_FLUSH() && <----------------------- This is an ALINK COMMAND TO FLUSH
  44.                                           BUFFERS (not a must but it does'nt
  45.                                           hurt)
  46.  
  47.    SET CURSOR(false)
  48.    STORE false TO again, local, authorized, sysop, auto_disc, uploaded, loc_abort
  49.    good_exit = "C"
  50.    STORE 0 TO logrec,user_record,newkey
  51.    RESTORE SCREEN FROM host
  52.    DO RESET
  53.    @ 00,00
  54.    rtime = " "
  55.    KEYBOARD ""
  56.    SETCOLOR(inverse)
  57.    SELECT 2
  58.    
  59.    IF NET_USE(maindir,"MAIL",SHARED,10)
  60.       setndx(maindir,"mail_x")
  61.    ELSE
  62.       open_error("SBULLET",Procline(),"Unable to open " + maindir + "MAIL.DBF","","")
  63.    ENDIF
  64.    
  65.    SEEK UPPER(sbparms->sysop_l + sbparms->sysop_f) + "N"
  66.    
  67.    IF FOUND()
  68.       @ 00,20 SAY " Mail waiting "
  69.    ENDIF
  70.    
  71.    closefile("MAIL")
  72.    SETCOLOR(yellow)
  73.    
  74.    @ 20,20 SAY lastcall
  75.    SELECT USER
  76.    SETCOLOR(inverse)
  77.    
  78.    IF call_received
  79.       @ 00,01 SAY " Call received "
  80.    ENDIF
  81.    
  82.    SETCOLOR(binverse)
  83.    @ 19,04 SAY "   Last call   "
  84.    errors = FILE(errfile)
  85.    
  86.    IF errors
  87.       @ 00,37 SAY " Check Error file "
  88.       SETCOLOR(inverse)
  89.       @ 22,09 SAY " ERROR "
  90.       @ 23,09 SAY " FILE  "
  91.    ENDIF
  92.    
  93.    IF pageblock
  94.       @ 22,33 SAY " PAGE  "
  95.       @ 23,33 SAY " OFF   "
  96.    ELSE
  97.       SETCOLOR(binverse)
  98.       @ 22,33 SAY " PAGE  "
  99.       @ 23,33 SAY "  ON   "
  100.    ENDIF
  101.    
  102.    IF statuscts(port)
  103.       SETCOLOR(silver)
  104.       @2,17 SAY "Waiting for call..."
  105.    ELSE
  106.       SETCOLOR(red)
  107.       @2,17 SAY "No modem response..."
  108.    ENDIF
  109.    
  110.    SETCOLOR(green)
  111.    
  112.    startsav = swgtime() + scrnsav * 60
  113.    
  114.    ************ If we are not on line kick in the screen saver
  115.    ************ Also this is the place to setup the EVENT_TIME
  116.    
  117.    DO WHILE ! statuscd(port)
  118.       newkey = INKEY()
  119.  
  120.       ************************
  121.       *
  122.       * EVENT TIMER FUNCTION MENU DISPLAY
  123.       *
  124.       ************************
  125.  
  126.       menu_time()   && <---------------  ADD-IN FOR THE EVENT TIMER HERE *
  127.  
  128.  
  129. *********************************************************************
  130. *
  131. *     This will display the status of the scheduled event time and a 12 hr
  132. *     clock as well this is not a manditory function but it sure is nice.
  133. *
  134. *********************************************************************
  135.  
  136.  
  137.